home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2005-12-07 | 4.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 6c 40 2f 2f 20 43 6f 70 |........|l@// Cop|
|00000010| 79 72 69 67 68 74 20 28 | 43 29 20 32 30 30 35 20 |yright (|C) 2005 |
|00000020| 42 72 61 69 6e 62 6f 78 | 20 47 61 6d 65 73 2e 20 |Brainbox| Games. |
|00000030| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00000040| 76 65 64 2e 0d 0a 2f 2f | 20 53 65 70 74 65 6d 62 |ved...//| Septemb|
|00000050| 65 72 20 32 37 2c 20 32 | 30 30 35 0d 0a 63 6c 61 |er 27, 2|005..cla|
|00000060| 73 73 20 57 65 62 43 6f | 6e 6e 65 63 74 69 6f 6e |ss WebCo|nnection|
|00000070| 20 65 78 74 65 6e 64 73 | 20 54 63 70 4c 69 6e 6b | extends| TcpLink|
|00000080| 3b 0d 0a 0d 0a 76 61 72 | 20 57 65 62 53 65 72 76 |;....var| WebServ|
|00000090| 65 72 20 57 65 62 53 65 | 72 76 65 72 3b 0d 0a 76 |er WebSe|rver;..v|
|000000a0| 61 72 20 73 74 72 69 6e | 67 20 52 65 63 65 69 76 |ar strin|g Receiv|
|000000b0| 65 64 44 61 74 61 3b 0d | 0a 0d 0a 76 61 72 20 57 |edData;.|...var W|
|000000c0| 65 62 52 65 71 75 65 73 | 74 20 52 65 71 75 65 73 |ebReques|t Reques|
|000000d0| 74 3b 0d 0a 76 61 72 20 | 57 65 62 52 65 73 70 6f |t;..var |WebRespo|
|000000e0| 6e 73 65 20 52 65 73 70 | 6f 6e 73 65 3b 0d 0a 76 |nse Resp|onse;..v|
|000000f0| 61 72 20 57 65 62 41 70 | 70 6c 69 63 61 74 69 6f |ar WebAp|plicatio|
|00000100| 6e 20 41 70 70 6c 69 63 | 61 74 69 6f 6e 3b 0d 0a |n Applic|ation;..|
|00000110| 0d 0a 76 61 72 20 69 6e | 74 20 52 61 77 42 79 74 |..var in|t RawByt|
|00000120| 65 73 45 78 70 65 63 74 | 69 6e 67 3b 0d 0a 0d 0a |esExpect|ing;....|
|00000130| 65 76 65 6e 74 20 41 63 | 63 65 70 74 65 64 28 29 |event Ac|cepted()|
|00000140| 0d 0a 7b 0d 0a 09 57 65 | 62 53 65 72 76 65 72 20 |..{...We|bServer |
|00000150| 3d 20 57 65 62 53 65 72 | 76 65 72 28 4f 77 6e 65 |= WebSer|ver(Owne|
|00000160| 72 29 3b 0d 0a 09 53 65 | 74 54 69 6d 65 72 28 33 |r);...Se|tTimer(3|
|00000170| 30 2c 20 46 61 6c 73 65 | 29 3b 0d 0a 7d 0d 0a 0d |0, False|);..}...|
|00000180| 0a 65 76 65 6e 74 20 43 | 6c 6f 73 65 64 28 29 0d |.event C|losed().|
|00000190| 0a 7b 0d 0a 09 44 65 73 | 74 72 6f 79 28 29 3b 0d |.{...Des|troy();.|
|000001a0| 0a 7d 0d 0a 0d 0a 65 76 | 65 6e 74 20 54 69 6d 65 |.}....ev|ent Time|
|000001b0| 72 28 29 0d 0a 7b 0d 0a | 09 43 6c 6f 73 65 28 29 |r()..{..|.Close()|
|000001c0| 3b 0d 0a 7d 0d 0a 0d 0a | 65 76 65 6e 74 20 52 65 |;..}....|event Re|
|000001d0| 63 65 69 76 65 64 54 65 | 78 74 28 20 73 74 72 69 |ceivedTe|xt( stri|
|000001e0| 6e 67 20 54 65 78 74 20 | 29 0d 0a 7b 0d 0a 09 6c |ng Text |)..{...l|
|000001f0| 6f 63 61 6c 20 69 6e 74 | 20 69 3b 0d 0a 09 6c 6f |ocal int| i;...lo|
|00000200| 63 61 6c 20 73 74 72 69 | 6e 67 20 53 3b 0d 0a 0d |cal stri|ng S;...|
|00000210| 0a 09 52 65 63 65 69 76 | 65 64 44 61 74 61 20 3d |..Receiv|edData =|
|00000220| 20 52 65 63 65 69 76 65 | 64 44 61 74 61 20 24 20 | Receive|dData $ |
|00000230| 54 65 78 74 3b 0d 0a 09 | 69 66 28 52 61 77 42 79 |Text;...|if(RawBy|
|00000240| 74 65 73 45 78 70 65 63 | 74 69 6e 67 20 3e 20 30 |tesExpec|ting > 0|
|00000250| 29 0d 0a 09 7b 0d 0a 09 | 09 52 61 77 42 79 74 65 |)...{...|.RawByte|
|00000260| 73 45 78 70 65 63 74 69 | 6e 67 20 2d 3d 20 4c 65 |sExpecti|ng -= Le|
|00000270| 6e 28 54 65 78 74 29 3b | 0d 0a 09 09 43 68 65 63 |n(Text);|....Chec|
|00000280| 6b 52 61 77 42 79 74 65 | 73 28 29 3b 0d 0a 0d 0a |kRawByte|s();....|
|00000290| 09 09 72 65 74 75 72 6e | 3b 0d 0a 09 7d 0d 0a 0d |..return|;...}...|
|000002a0| 0a 09 2f 2f 20 72 65 6d | 6f 76 65 20 61 20 4c 46 |..// rem|ove a LF|
|000002b0| 20 77 68 69 63 68 20 61 | 72 72 69 76 65 64 20 69 | which a|rrived i|
|000002c0| 6e 20 61 20 6e 65 77 20 | 70 61 63 6b 65 74 0d 0a |n a new |packet..|
|000002d0| 09 2f 2f 20 61 6e 64 20 | 74 68 75 73 20 64 69 64 |.// and |thus did|
|000002e0| 6e 27 74 20 67 65 74 20 | 63 6c 65 61 6e 65 64 20 |n't get |cleaned |
|000002f0| 75 70 20 62 79 20 74 68 | 65 20 63 6f 64 65 20 62 |up by th|e code b|
|00000300| 65 6c 6f 77 0d 0a 09 69 | 66 28 4c 65 66 74 28 52 |elow...i|f(Left(R|
|00000310| 65 63 65 69 76 65 64 44 | 61 74 61 2c 20 31 29 20 |eceivedD|ata, 1) |
|00000320| 3d 3d 20 43 68 72 28 31 | 30 29 29 0d 0a 09 09 52 |== Chr(1|0))....R|
|00000330| 65 63 65 69 76 65 64 44 | 61 74 61 20 3d 20 4d 69 |eceivedD|ata = Mi|
|00000340| 64 28 52 65 63 65 69 76 | 65 64 44 61 74 61 2c 20 |d(Receiv|edData, |
|00000350| 31 29 3b 0d 0a 09 69 20 | 3d 20 49 6e 53 74 72 28 |1);...i |= InStr(|
|00000360| 52 65 63 65 69 76 65 64 | 44 61 74 61 2c 20 43 68 |Received|Data, Ch|
|00000370| 72 28 31 33 29 29 3b 0d | 0a 09 77 68 69 6c 65 28 |r(13));.|..while(|
|00000380| 69 20 21 3d 20 2d 31 29 | 0d 0a 09 7b 0d 0a 09 09 |i != -1)|...{....|
|00000390| 53 20 3d 20 4c 65 66 74 | 28 52 65 63 65 69 76 65 |S = Left|(Receive|
|000003a0| 64 44 61 74 61 2c 20 69 | 29 3b 0d 0a 09 09 69 2b |dData, i|);....i+|
|000003b0| 2b 3b 0d 0a 09 09 2f 2f | 20 63 68 65 63 6b 20 66 |+;....//| check f|
|000003c0| 6f 72 20 61 6e 79 20 4c | 46 20 66 6f 6c 6c 6f 77 |or any L|F follow|
|000003d0| 69 6e 67 20 74 68 65 20 | 43 52 2e 0d 0a 09 09 69 |ing the |CR.....i|
|000003e0| 66 28 4d 69 64 28 52 65 | 63 65 69 76 65 64 44 61 |f(Mid(Re|ceivedDa|
|000003f0| 74 61 2c 20 69 2c 20 31 | 29 20 3d 3d 20 43 68 72 |ta, i, 1|) == Chr|
|00000400| 28 31 30 29 29 0d 0a 09 | 09 09 69 2b 2b 3b 0d 0a |(10))...|..i++;..|
|00000410| 0d 0a 09 09 52 65 63 65 | 69 76 65 64 44 61 74 61 |....Rece|ivedData|
|00000420| 20 3d 20 4d 69 64 28 52 | 65 63 65 69 76 65 64 44 | = Mid(R|eceivedD|
|00000430| 61 74 61 2c 20 69 29 3b | 0d 0a 0d 0a 09 09 52 65 |ata, i);|......Re|
|00000440| 63 65 69 76 65 64 4c 69 | 6e 65 28 53 29 3b 0d 0a |ceivedLi|ne(S);..|
|00000450| 09 09 0d 0a 09 09 69 66 | 28 4c 69 6e 6b 53 74 61 |......if|(LinkSta|
|00000460| 74 65 20 21 3d 20 53 54 | 41 54 45 5f 43 6f 6e 6e |te != ST|ATE_Conn|
|00000470| 65 63 74 65 64 29 0d 0a | 09 09 09 72 65 74 75 72 |ected)..|...retur|
|00000480| 6e 3b 0d 0a 09 09 69 66 | 28 52 61 77 42 79 74 65 |n;....if|(RawByte|
|00000490| 73 45 78 70 65 63 74 69 | 6e 67 20 3e 20 30 29 0d |sExpecti|ng > 0).|
|000004a0| 0a 09 09 7b 09 0d 0a 09 | 09 09 43 68 65 63 6b 52 |...{....|..CheckR|
|000004b0| 61 77 42 79 74 65 73 28 | 29 3b 0d 0a 09 09 09 72 |awBytes(|);.....r|
|000004c0| 65 74 75 72 6e 3b 0d 0a | 09 09 7d 0d 0a 0d 0a 09 |eturn;..|..}.....|
|000004d0| 09 69 20 3d 20 49 6e 53 | 74 72 28 52 65 63 65 69 |.i = InS|tr(Recei|
|000004e0| 76 65 64 44 61 74 61 2c | 20 43 68 72 28 31 33 29 |vedData,| Chr(13)|
|000004f0| 29 3b 0d 0a 09 7d 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |);...}..|}....fun|
|00000500| 63 74 69 6f 6e 20 52 65 | 63 65 69 76 65 64 4c 69 |ction Re|ceivedLi|
|00000510| 6e 65 28 73 74 72 69 6e | 67 20 53 29 0d 0a 7b 0d |ne(strin|g S)..{.|
|00000520| 0a 09 69 66 28 4c 65 66 | 74 28 53 2c 20 34 29 20 |..if(Lef|t(S, 4) |
|00000530| 7e 3d 20 22 47 45 54 20 | 22 29 0d 0a 09 09 50 72 |~= "GET |")....Pr|
|00000540| 6f 63 65 73 73 47 65 74 | 28 53 29 3b 0d 0a 09 65 |ocessGet|(S);...e|
|00000550| 6c 73 65 09 0d 0a 09 69 | 66 28 4c 65 66 74 28 53 |lse....i|f(Left(S|
|00000560| 2c 20 35 29 20 7e 3d 20 | 22 50 4f 53 54 20 22 29 |, 5) ~= |"POST ")|
|00000570| 0d 0a 09 09 50 72 6f 63 | 65 73 73 50 6f 73 74 28 |....Proc|essPost(|
|00000580| 53 29 3b 0d 0a 09 65 6c | 73 65 0d 0a 09 69 66 28 |S);...el|se...if(|
|00000590| 53 20 3d 3d 20 22 22 29 | 0d 0a 09 09 45 6e 64 4f |S == "")|....EndO|
|000005a0| 66 48 65 61 64 65 72 73 | 28 29 3b 0d 0a 09 65 6c |fHeaders|();...el|
|000005b0| 73 65 0d 0a 09 69 66 28 | 52 65 71 75 65 73 74 20 |se...if(|Request |
|000005c0| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 7b 0d 0a 09 09 |!= None)|...{....|
|000005d0| 52 65 71 75 65 73 74 2e | 50 72 6f 63 65 73 73 48 |Request.|ProcessH|
|000005e0| 65 61 64 65 72 53 74 72 | 69 6e 67 28 53 29 3b 0d |eaderStr|ing(S);.|
|000005f0| 0a 09 7d 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |..}..}..|..functi|
|00000600| 6f 6e 20 50 72 6f 63 65 | 73 73 47 65 74 28 73 74 |on Proce|ssGet(st|
|00000610| 72 69 6e 67 20 53 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |ring S).|.{...loc|
|00000620| 61 6c 20 69 6e 74 20 69 | 3b 0d 0a 0d 0a 09 69 66 |al int i|;.....if|
|00000630| 28 52 65 71 75 65 73 74 | 20 3d 3d 20 4e 6f 6e 65 |(Request| == None|
|00000640| 29 0d 0a 09 09 43 72 65 | 61 74 65 52 65 73 70 6f |)....Cre|ateRespo|
|00000650| 6e 73 65 4f 62 6a 65 63 | 74 28 29 3b 0d 0a 0d 0a |nseObjec|t();....|
|00000660| 09 52 65 71 75 65 73 74 | 2e 52 65 71 75 65 73 74 |.Request|.Request|
|00000670| 54 79 70 65 20 3d 20 52 | 65 71 75 65 73 74 5f 47 |Type = R|equest_G|
|00000680| 45 54 3b 0d 0a 09 53 20 | 3d 20 4d 69 64 28 53 2c |ET;...S |= Mid(S,|
|00000690| 20 34 29 3b 0d 0a 09 77 | 68 69 6c 65 28 4c 65 66 | 4);...w|hile(Lef|
|000006a0| 74 28 53 2c 20 31 29 20 | 3d 3d 20 22 20 22 29 0d |t(S, 1) |== " ").|
|000006b0| 0a 09 09 53 20 3d 20 4d | 69 64 28 53 2c 20 31 29 |...S = M|id(S, 1)|
|000006c0| 3b 0d 0a 0d 0a 09 69 20 | 3d 20 49 6e 53 74 72 28 |;.....i |= InStr(|
|000006d0| 53 2c 20 22 20 22 29 3b | 0d 0a 0d 0a 09 69 66 28 |S, " ");|.....if(|
|000006e0| 69 20 21 3d 20 2d 31 29 | 0d 0a 09 09 53 20 3d 20 |i != -1)|....S = |
|000006f0| 4c 65 66 74 28 53 2c 20 | 69 29 3b 0d 0a 0d 0a 09 |Left(S, |i);.....|
|00000700| 69 20 3d 20 49 6e 53 74 | 72 28 53 2c 20 22 3f 22 |i = InSt|r(S, "?"|
|00000710| 29 3b 0d 0a 09 69 66 28 | 69 20 21 3d 20 2d 31 29 |);...if(|i != -1)|
|00000720| 0d 0a 09 7b 0d 0a 09 09 | 52 65 71 75 65 73 74 2e |...{....|Request.|
|00000730| 44 65 63 6f 64 65 46 6f | 72 6d 44 61 74 61 28 4d |DecodeFo|rmData(M|
|00000740| 69 64 28 53 2c 20 69 2b | 31 29 29 3b 0d 0a 09 09 |id(S, i+|1));....|
|00000750| 53 20 3d 20 4c 65 66 74 | 28 53 2c 20 69 29 3b 0d |S = Left|(S, i);.|
|00000760| 0a 09 7d 0d 0a 0d 0a 09 | 41 70 70 6c 69 63 61 74 |..}.....|Applicat|
|00000770| 69 6f 6e 20 3d 20 57 65 | 62 53 65 72 76 65 72 2e |ion = We|bServer.|
|00000780| 47 65 74 41 70 70 6c 69 | 63 61 74 69 6f 6e 28 53 |GetAppli|cation(S|
|00000790| 2c 20 52 65 71 75 65 73 | 74 2e 55 52 49 29 3b 0d |, Reques|t.URI);.|
|000007a0| 0a 09 69 66 28 41 70 70 | 6c 69 63 61 74 69 6f 6e |..if(App|lication|
|000007b0| 20 21 3d 20 4e 6f 6e 65 | 20 26 26 20 52 65 71 75 | != None| && Requ|
|000007c0| 65 73 74 2e 55 52 49 20 | 3d 3d 20 22 22 29 0d 0a |est.URI |== "")..|
|000007d0| 09 7b 0d 0a 09 09 52 65 | 73 70 6f 6e 73 65 2e 52 |.{....Re|sponse.R|
|000007e0| 65 64 69 72 65 63 74 28 | 57 65 62 53 65 72 76 65 |edirect(|WebServe|
|000007f0| 72 2e 53 65 72 76 65 72 | 55 52 4c 24 53 24 22 2f |r.Server|URL$S$"/|
|00000800| 22 29 3b 0d 0a 09 09 43 | 6c 65 61 6e 75 70 28 29 |");....C|leanup()|
|00000810| 3b 0d 0a 09 7d 0d 0a 09 | 65 6c 73 65 0d 0a 09 69 |;...}...|else...i|
|00000820| 66 28 41 70 70 6c 69 63 | 61 74 69 6f 6e 20 3d 3d |f(Applic|ation ==|
|00000830| 20 4e 6f 6e 65 20 26 26 | 20 57 65 62 73 65 72 76 | None &&| Webserv|
|00000840| 65 72 2e 44 65 66 61 75 | 6c 74 41 70 70 6c 69 63 |er.Defau|ltApplic|
|00000850| 61 74 69 6f 6e 20 21 3d | 20 2d 31 29 0d 0a 09 7b |ation !=| -1)...{|
|00000860| 0d 0a 09 09 52 65 73 70 | 6f 6e 73 65 2e 52 65 64 |....Resp|onse.Red|
|00000870| 69 72 65 63 74 28 57 65 | 62 53 65 72 76 65 72 2e |irect(We|bServer.|
|00000880| 53 65 72 76 65 72 55 52 | 4c 24 57 65 62 73 65 72 |ServerUR|L$Webser|
|00000890| 76 65 72 2e 41 70 70 6c | 69 63 61 74 69 6f 6e 50 |ver.Appl|icationP|
|000008a0| 61 74 68 73 5b 57 65 62 | 73 65 72 76 65 72 2e 44 |aths[Web|server.D|
|000008b0| 65 66 61 75 6c 74 41 70 | 70 6c 69 63 61 74 69 6f |efaultAp|plicatio|
|000008c0| 6e 5d 24 22 2f 22 29 3b | 0d 0a 09 09 43 6c 65 61 |n]$"/");|....Clea|
|000008d0| 6e 75 70 28 29 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |nup();..|.}..}...|
|000008e0| 0a 66 75 6e 63 74 69 6f | 6e 20 50 72 6f 63 65 73 |.functio|n Proces|
|000008f0| 73 50 6f 73 74 28 73 74 | 72 69 6e 67 20 53 29 0d |sPost(st|ring S).|
|00000900| 0a 7b 0d 0a 09 6c 6f 63 | 61 6c 20 69 6e 74 20 69 |.{...loc|al int i|
|00000910| 3b 0d 0a 0d 0a 09 69 66 | 28 52 65 71 75 65 73 74 |;.....if|(Request|
|00000920| 20 3d 3d 20 4e 6f 6e 65 | 29 0d 0a 09 09 43 72 65 | == None|)....Cre|
|00000930| 61 74 65 52 65 73 70 6f | 6e 73 65 4f 62 6a 65 63 |ateRespo|nseObjec|
|00000940| 74 28 29 3b 0d 0a 0d 0a | 09 52 65 71 75 65 73 74 |t();....|.Request|
|00000950| 2e 52 65 71 75 65 73 74 | 54 79 70 65 20 3d 20 52 |.Request|Type = R|
|00000960| 65 71 75 65 73 74 5f 50 | 4f 53 54 3b 0d 0a 0d 0a |equest_P|OST;....|
|00000970| 09 53 20 3d 20 4d 69 64 | 28 53 2c 20 35 29 3b 0d |.S = Mid|(S, 5);.|
|00000980| 0a 09 77 68 69 6c 65 28 | 4c 65 66 74 28 53 2c 20 |..while(|Left(S, |
|00000990| 31 29 20 3d 3d 20 22 20 | 22 29 0d 0a 09 09 53 20 |1) == " |")....S |
|000009a0| 3d 20 4d 69 64 28 53 2c | 20 31 29 3b 0d 0a 0d 0a |= Mid(S,| 1);....|
|000009b0| 09 69 20 3d 20 49 6e 53 | 74 72 28 53 2c 20 22 20 |.i = InS|tr(S, " |
|000009c0| 22 29 3b 0d 0a 0d 0a 09 | 69 66 28 69 20 21 3d 20 |");.....|if(i != |
|000009d0| 2d 31 29 0d 0a 09 09 53 | 20 3d 20 4c 65 66 74 28 |-1)....S| = Left(|
|000009e0| 53 2c 20 69 29 3b 0d 0a | 0d 0a 09 69 20 3d 20 49 |S, i);..|...i = I|
|000009f0| 6e 53 74 72 28 53 2c 20 | 22 3f 22 29 3b 0d 0a 09 |nStr(S, |"?");...|
|00000a00| 69 66 28 69 20 21 3d 20 | 2d 31 29 0d 0a 09 7b 0d |if(i != |-1)...{.|
|00000a10| 0a 09 09 52 65 71 75 65 | 73 74 2e 44 65 63 6f 64 |...Reque|st.Decod|
|00000a20| 65 46 6f 72 6d 44 61 74 | 61 28 4d 69 64 28 53 2c |eFormDat|a(Mid(S,|
|00000a30| 20 69 2b 31 29 29 3b 0d | 0a 09 09 53 20 3d 20 4c | i+1));.|...S = L|
|00000a40| 65 66 74 28 53 2c 20 69 | 29 3b 0d 0a 09 7d 0d 0a |eft(S, i|);...}..|
|00000a50| 09 41 70 70 6c 69 63 61 | 74 69 6f 6e 20 3d 20 57 |.Applica|tion = W|
|00000a60| 65 62 53 65 72 76 65 72 | 2e 47 65 74 41 70 70 6c |ebServer|.GetAppl|
|00000a70| 69 63 61 74 69 6f 6e 28 | 53 2c 20 52 65 71 75 65 |ication(|S, Reque|
|00000a80| 73 74 2e 55 52 49 29 3b | 0d 0a 09 69 66 28 41 70 |st.URI);|...if(Ap|
|00000a90| 70 6c 69 63 61 74 69 6f | 6e 20 21 3d 20 4e 6f 6e |plicatio|n != Non|
|00000aa0| 65 20 26 26 20 52 65 71 | 75 65 73 74 2e 55 52 49 |e && Req|uest.URI|
|00000ab0| 20 3d 3d 20 22 22 29 0d | 0a 09 7b 0d 0a 09 09 52 | == "").|..{....R|
|00000ac0| 65 73 70 6f 6e 73 65 2e | 52 65 64 69 72 65 63 74 |esponse.|Redirect|
|00000ad0| 28 57 65 62 53 65 72 76 | 65 72 2e 53 65 72 76 65 |(WebServ|er.Serve|
|00000ae0| 72 55 52 4c 24 53 24 22 | 2f 22 29 3b 0d 0a 09 09 |rURL$S$"|/");....|
|00000af0| 43 6c 65 61 6e 75 70 28 | 29 3b 0d 0a 09 7d 0d 0a |Cleanup(|);...}..|
|00000b00| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 43 72 |}....fun|ction Cr|
|00000b10| 65 61 74 65 52 65 73 70 | 6f 6e 73 65 4f 62 6a 65 |eateResp|onseObje|
|00000b20| 63 74 28 29 0d 0a 7b 0d | 0a 09 52 65 71 75 65 73 |ct()..{.|..Reques|
|00000b30| 74 20 3d 20 6e 65 77 28 | 4e 6f 6e 65 29 20 63 6c |t = new(|None) cl|
|00000b40| 61 73 73 27 57 65 62 52 | 65 71 75 65 73 74 27 3b |ass'WebR|equest';|
|00000b50| 0d 0a 0d 0a 09 52 65 73 | 70 6f 6e 73 65 20 3d 20 |.....Res|ponse = |
|00000b60| 6e 65 77 28 4e 6f 6e 65 | 29 20 63 6c 61 73 73 27 |new(None|) class'|
|00000b70| 57 65 62 52 65 73 70 6f | 6e 73 65 27 3b 0d 0a 09 |WebRespo|nse';...|
|00000b80| 52 65 73 70 6f 6e 73 65 | 2e 43 6f 6e 6e 65 63 74 |Response|.Connect|
|00000b90| 69 6f 6e 20 3d 20 53 65 | 6c 66 3b 0d 0a 7d 0d 0a |ion = Se|lf;..}..|
|00000ba0| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 45 6e 64 4f 66 |..functi|on EndOf|
|00000bb0| 48 65 61 64 65 72 73 28 | 29 0d 0a 7b 0d 0a 09 69 |Headers(|)..{...i|
|00000bc0| 66 28 52 65 73 70 6f 6e | 73 65 20 3d 3d 20 4e 6f |f(Respon|se == No|
|00000bd0| 6e 65 29 0d 0a 09 7b 0d | 0a 09 09 43 72 65 61 74 |ne)...{.|...Creat|
|00000be0| 65 52 65 73 70 6f 6e 73 | 65 4f 62 6a 65 63 74 28 |eRespons|eObject(|
|00000bf0| 29 3b 0d 0a 09 09 52 65 | 73 70 6f 6e 73 65 2e 48 |);....Re|sponse.H|
|00000c00| 54 54 50 45 72 72 6f 72 | 28 34 30 30 29 3b 20 2f |TTPError|(400); /|
|00000c10| 2f 20 42 61 64 20 52 65 | 71 75 65 73 74 0d 0a 09 |/ Bad Re|quest...|
|00000c20| 09 43 6c 65 61 6e 75 70 | 28 29 3b 0d 0a 09 09 72 |.Cleanup|();....r|
|00000c30| 65 74 75 72 6e 3b 0d 0a | 09 7d 0d 0a 0d 0a 09 69 |eturn;..|.}.....i|
|00000c40| 66 28 41 70 70 6c 69 63 | 61 74 69 6f 6e 20 3d 3d |f(Applic|ation ==|
|00000c50| 20 4e 6f 6e 65 29 0d 0a | 09 7b 0d 0a 09 09 52 65 | None)..|.{....Re|
|00000c60| 73 70 6f 6e 73 65 2e 48 | 54 54 50 45 72 72 6f 72 |sponse.H|TTPError|
|00000c70| 28 34 30 34 29 3b 20 2f | 2f 20 46 4e 46 0d 0a 09 |(404); /|/ FNF...|
|00000c80| 09 43 6c 65 61 6e 75 70 | 28 29 3b 0d 0a 09 09 72 |.Cleanup|();....r|
|00000c90| 65 74 75 72 6e 3b 0d 0a | 09 7d 0d 0a 0d 0a 09 69 |eturn;..|.}.....i|
|00000ca0| 66 28 52 65 71 75 65 73 | 74 2e 43 6f 6e 74 65 6e |f(Reques|t.Conten|
|00000cb0| 74 4c 65 6e 67 74 68 20 | 21 3d 20 30 20 26 26 20 |tLength |!= 0 && |
|00000cc0| 52 65 71 75 65 73 74 2e | 52 65 71 75 65 73 74 54 |Request.|RequestT|
|00000cd0| 79 70 65 20 3d 3d 20 52 | 65 71 75 65 73 74 5f 50 |ype == R|equest_P|
|00000ce0| 4f 53 54 29 0d 0a 09 7b | 0d 0a 09 09 52 61 77 42 |OST)...{|....RawB|
|00000cf0| 79 74 65 73 45 78 70 65 | 63 74 69 6e 67 20 3d 20 |ytesExpe|cting = |
|00000d00| 52 65 71 75 65 73 74 2e | 43 6f 6e 74 65 6e 74 4c |Request.|ContentL|
|00000d10| 65 6e 67 74 68 3b 0d 0a | 09 09 52 61 77 42 79 74 |ength;..|..RawByt|
|00000d20| 65 73 45 78 70 65 63 74 | 69 6e 67 20 2d 3d 20 4c |esExpect|ing -= L|
|00000d30| 65 6e 28 52 65 63 65 69 | 76 65 64 44 61 74 61 29 |en(Recei|vedData)|
|00000d40| 3b 0d 0a 09 09 43 68 65 | 63 6b 52 61 77 42 79 74 |;....Che|ckRawByt|
|00000d50| 65 73 28 29 3b 0d 0a 09 | 7d 0d 0a 09 65 6c 73 65 |es();...|}...else|
|00000d60| 0d 0a 09 7b 0d 0a 09 09 | 41 70 70 6c 69 63 61 74 |...{....|Applicat|
|00000d70| 69 6f 6e 2e 51 75 65 72 | 79 28 52 65 71 75 65 73 |ion.Quer|y(Reques|
|00000d80| 74 2c 20 52 65 73 70 6f | 6e 73 65 29 3b 0d 0a 09 |t, Respo|nse);...|
|00000d90| 09 43 6c 65 61 6e 75 70 | 28 29 3b 0d 0a 09 7d 0d |.Cleanup|();...}.|
|00000da0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 43 |.}....fu|nction C|
|00000db0| 68 65 63 6b 52 61 77 42 | 79 74 65 73 28 29 0d 0a |heckRawB|ytes()..|
|00000dc0| 7b 0d 0a 09 69 66 28 52 | 61 77 42 79 74 65 73 45 |{...if(R|awBytesE|
|00000dd0| 78 70 65 63 74 69 6e 67 | 20 3c 3d 20 30 29 0d 0a |xpecting| <= 0)..|
|00000de0| 09 7b 0d 0a 09 09 69 66 | 28 21 28 52 65 71 75 65 |.{....if|(!(Reque|
|00000df0| 73 74 2e 43 6f 6e 74 65 | 6e 74 54 79 70 65 20 7e |st.Conte|ntType ~|
|00000e00| 3d 20 22 61 70 70 6c 69 | 63 61 74 69 6f 6e 2f 78 |= "appli|cation/x|
|00000e10| 2d 77 77 77 2d 66 6f 72 | 6d 2d 75 72 6c 65 6e 63 |-www-for|m-urlenc|
|00000e20| 6f 64 65 64 22 29 29 0d | 0a 09 09 7b 0d 0a 09 09 |oded")).|...{....|
|00000e30| 09 4c 6f 67 28 22 57 65 | 62 43 6f 6e 6e 65 63 74 |.Log("We|bConnect|
|00000e40| 69 6f 6e 3a 20 55 6e 6b | 6e 6f 77 6e 20 66 6f 72 |ion: Unk|nown for|
|00000e50| 6d 20 64 61 74 61 20 63 | 6f 6e 74 65 6e 74 2d 74 |m data c|ontent-t|
|00000e60| 79 70 65 3a 20 22 24 52 | 65 71 75 65 73 74 2e 43 |ype: "$R|equest.C|
|00000e70| 6f 6e 74 65 6e 74 54 79 | 70 65 29 3b 0d 0a 09 09 |ontentTy|pe);....|
|00000e80| 09 52 65 73 70 6f 6e 73 | 65 2e 48 54 54 50 45 72 |.Respons|e.HTTPEr|
|00000e90| 72 6f 72 28 34 30 30 29 | 3b 20 2f 2f 20 43 61 6e |ror(400)|; // Can|
|00000ea0| 27 74 20 64 65 61 6c 20 | 77 69 74 68 20 74 68 69 |'t deal |with thi|
|00000eb0| 73 20 74 79 70 65 20 6f | 66 20 66 6f 72 6d 20 64 |s type o|f form d|
|00000ec0| 61 74 61 0d 0a 09 09 7d | 0d 0a 09 09 65 6c 73 65 |ata....}|....else|
|00000ed0| 0d 0a 09 09 7b 0d 0a 09 | 09 09 52 65 71 75 65 73 |....{...|..Reques|
|00000ee0| 74 2e 44 65 63 6f 64 65 | 46 6f 72 6d 44 61 74 61 |t.Decode|FormData|
|00000ef0| 28 52 65 63 65 69 76 65 | 64 44 61 74 61 29 3b 0d |(Receive|dData);.|
|00000f00| 0a 09 09 09 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |....Appl|ication.|
|00000f10| 51 75 65 72 79 28 52 65 | 71 75 65 73 74 2c 20 52 |Query(Re|quest, R|
|00000f20| 65 73 70 6f 6e 73 65 29 | 3b 0d 0a 09 09 09 52 65 |esponse)|;.....Re|
|00000f30| 63 65 69 76 65 64 44 61 | 74 61 20 3d 20 22 22 3b |ceivedDa|ta = "";|
|00000f40| 0d 0a 09 09 7d 0d 0a 09 | 09 43 6c 65 61 6e 75 70 |....}...|.Cleanup|
|00000f50| 28 29 3b 0d 0a 09 7d 0d | 0a 7d 0d 0a 0d 0a 66 75 |();...}.|.}....fu|
|00000f60| 6e 63 74 69 6f 6e 20 43 | 6c 65 61 6e 75 70 28 29 |nction C|leanup()|
|00000f70| 0d 0a 7b 0d 0a 09 69 66 | 28 52 65 71 75 65 73 74 |..{...if|(Request|
|00000f80| 20 21 3d 20 4e 6f 6e 65 | 29 0d 0a 09 09 52 65 71 | != None|)....Req|
|00000f90| 75 65 73 74 20 3d 20 4e | 6f 6e 65 3b 0d 0a 0d 0a |uest = N|one;....|
|00000fa0| 09 69 66 28 52 65 73 70 | 6f 6e 73 65 20 21 3d 20 |.if(Resp|onse != |
|00000fb0| 4e 6f 6e 65 29 0d 0a 09 | 7b 0d 0a 09 09 52 65 73 |None)...|{....Res|
|00000fc0| 70 6f 6e 73 65 2e 43 6f | 6e 6e 65 63 74 69 6f 6e |ponse.Co|nnection|
|00000fd0| 20 3d 20 4e 6f 6e 65 3b | 0d 0a 09 09 52 65 73 70 | = None;|....Resp|
|00000fe0| 6f 6e 73 65 20 3d 20 4e | 6f 6e 65 3b 0d 0a 09 7d |onse = N|one;...}|
|00000ff0| 0d 0a 0d 0a 09 69 66 28 | 41 70 70 6c 69 63 61 74 |.....if(|Applicat|
|00001000| 69 6f 6e 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 09 |ion != N|one)....|
|00001010| 41 70 70 6c 69 63 61 74 | 69 6f 6e 20 3d 20 4e 6f |Applicat|ion = No|
|00001020| 6e 65 3b 0d 0a 0d 0a 09 | 43 6c 6f 73 65 28 29 3b |ne;.....|Close();|
|00001030| 0d 0a 7d 0d 0a 00 | |..}... | |
+--------+-------------------------+-------------------------+--------+--------+
